COMMENT ⊗   VALID 00008 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	αXDEFINE CC		 To put ENTER_OPC's 2 to a line and delete blank lines.
C00003 00003	αXDEFINE UC		Selects next Ucode from list on p4 and fixes U2.
C00004 00004	αXDEFINE U2C
C00005 00005	IND,LAB,
C00006 00006	αXDEFINE DC		Generate directory line for SOPU p 45 etc.
C00007 00007	αXDEFINE BNDC		Delete BNDTRPKLU lines
C00008 00008
C00009 ENDMK
C⊗;
αXDEFINE C⊗C		⊗; To put ENTER_OPC's 2 to a line and delete blank lines.
α⊗Tβ⊗TαDα⊗C⊗C
α⊗Tβ⊗TαDα⊗C⊗C
α⊗Tβ⊗TαDα⊗C⊗C
α⊗Tβ⊗TαDα⊗C⊗C
αβD
αβ⊗L

αXDEFINE E⊗C		⊗;To generate ENTER_OPC's from list of UCODEs
αF,⊗C
αβ1αβXALIGN⊗C
αF,α⊗C β⊗CαβQα⊗C⊗B
αβ⊗CENTER_OPC ('α⊗Cα⊗TαD
α⊗Bα⊗BαFUα⊗C
αDα α α α αβI', α⊗C
α⊗TαDαF α⊗CαβI);α⊗C⊗C
αβ⊗L
αXDEFINE U⊗C		⊗;Selects next Ucode from list on p4 and fixes U2.
αβεM.CMD/N/3P⊗C
αFPα⊗Cα β⊗CαF⊗αα⊗Cβ⊗C⊗BαβD
αFUα⊗Cα β⊗CαF⊗⊗α⊗Cβ⊗C⊗BαβD
αβ4αβPαF,α⊗CαDβ⊗C⊗BαβAαβ-αβP
αβ3αβLαβC⊗CαβE
αβ2αβLα⊗TαDα⊗TαDα⊗TαDα⊗TαD⊗C
αβ⊗L
αXDEFINE U2⊗C
αβXF PINCαβ\UINC⊗Cαβ⊗L	⊗;Substitution macro to change PCODE to UCODE
IND,LAB,
AND,BGN,CHR,DIF,FJP,FLO,FLT,INN,INT,IOR,IXA,LCA,LDC,LOC,MOV,NEW,NOT,ODD,ORD,PAR,SGS,STP,TRC,UNI,

To use: Be on page and location to start substitutions
then type
	αβXEXECUTE M(2)<cr>
then
	αβZU<cr>
This takes the next PCODE instruction from list on page 4
	and fixes substitution command on page 3 of M.CMD
Make sure the correct substitution is to be made
then
	αH
then
	αβEXECUTE M(3)<cr>
then
	αβZU2<cr>
this makes 1 substitution

for repeated substitutions
	αβ∞αβY
or step one at a time with
	αβY
To go to next PCODE, repeat all of the above.  The codes are removed
from the list as used.
αXDEFINE D⊗C		⊗;Generate directory line for SOPU p 45 etc.
⊗CαF:¬=⊗C⊗B⊗C
αF¬|α⊗C
αβ2αXIFGE COL.⊗C
αβCαβL⊗CαβE
α⊗C⊗Bα⊗TαDαF:α⊗CαK⊗C⊗CαN⊗C
αβ⊗L
αXDEFINE BND⊗C		⊗;Delete BNDTRPKLU lines
αβF(*BNDTRPKLU*)⊗C
αβD
αβ⊗L


αXDEFINE NOT⊗C
αXSTOPONE⊗C
αF¬|α⊗C
αβ4αXIFLE COL.⊗C⊗C
αZDL⊗C
αβ⊗L

αXDEFINE NOT2⊗C
αXSTOPONE⊗C
αF¬|α⊗C
αβ4αXIFLE COL.⊗C
α⊗CαβDαN⊗C⊗C
αZDL⊗C
αβ⊗L

αXDEFINE DL⊗C		⊗;Generate directory line for p45 etc.
αF:¬=⊗C
αβXZMARK⊗CαβM
αZNOT⊗Cα⊗C
αβCαβL⊗CαβE
α⊗C⊗Bα⊗TαDαF:α⊗CαK⊗CαM⊗C
αβ⊗L